﻿<!--#include file="config.asp"-->
<%
session.CodePage = 65001
Dim connstr,conn

Sub OpenData
	'on error resume next
	Set Conn = Server.CreateObject("ADODB.Connection")
	  Connstr="DBQ="+Server.Mappath(""&sitepath&dbpath&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
	if err then
		err.clear
	else
		Conn.Open Connstr
	end if
End Sub

Sub CloseData
	Conn.close
	Set conn = Nothing
End Sub
%>
<!--#include file="function.asp"-->
